home *** CD-ROM | disk | FTP | other *** search
- //---------------------------------------------------------------------------
- #ifndef Normal1H
- #define Normal1H
- //---------------------------------------------------------------------------
- #include <Classes.hpp>
- #include <Controls.hpp>
- #include <StdCtrls.hpp>
- #include <Forms.hpp>
- #include "Plot.hpp"
- #include "PlotMenu.hpp"
- #include <ExtCtrls.hpp>
- #include <Menus.hpp>
- #include <Grids.hpp>
- #include <Buttons.hpp>
- #include "NEdit.hpp"
- #include "Nedit.hpp"
- #include "Plotimagelist.hpp"
- #include "Plotmenu.hpp"
- #include "Plottoolbar.hpp"
- #include <ComCtrls.hpp>
- #include <ToolWin.hpp>
- //---------------------------------------------------------------------------
-
- typedef TSeries* PSeries;
-
- #define PI 3.1415926535897
- #define RADIUS 50
-
- class TMainForm : public TForm
- {
- __published: // IDE-managed Components
- TStringGrid *StringGrid1;
- TPanel *Panel1;
- TLabel *Label1;
- TLabel *Label2;
- TLabel *Label3;
- TLabel *Label4;
- TLabel *Label5;
- TBitBtn *GoBitBtn;
- TBitBtn *PlotTypeBitBtn;
- TBitBtn *BitBtn3;
- TBitBtn *GoCrazyBitBtn;
- TBitBtn *TraceBitBtn;
- TBitBtn *ClearAllBitBtn;
- TNEdit *MinNEdit;
- TNEdit *MaxNEdit;
- TNEdit *StepSizeNEdit;
- TNEdit *MeanNEdit;
- TNEdit *StdDevNEdit;
- TStatusBar *StatusBar1;
- void __fastcall FormCreate(TObject *Sender);
- void __fastcall ExitMenuItemClick(TObject *Sender);
- void __fastcall GoBitBtnClick(TObject *Sender);
- void __fastcall PlotTypeBitBtnClick(TObject *Sender);
- void __fastcall BitBtn3Click(TObject *Sender);
- void __fastcall TraceBitBtnClick(TObject *Sender);
- void __fastcall ClearAllBitBtnClick(TObject *Sender);
- void __fastcall GoCrazyBitBtnClick(TObject *Sender);
- void __fastcall CrazyTimerTimer(TObject *Sender);
- void __fastcall MyPlotFileOpen(TObject *Sender, AnsiString TheFile);
- void __fastcall FormActivate(TObject *Sender);
- void __fastcall Plot1AfterPaint(TObject *Sender, TCanvas *ACanvas);
- private: // User declarations
- Integer Revolutions, StartWidth, StartHeight;
- Single Angle, AngleInc;
- TDateTime ElapsedTime, StartTime;
- TPlot *MyPlot;
- TPlotImageList *MyPlotImageList;
- TPlotToolBar *MyPlotToolBar;
- TPlotMenu *MyPlotMenu;
- TStringList *TheXStringData;
- public: // User declarations
- __fastcall TMainForm(TComponent* Owner);
- };
- //---------------------------------------------------------------------------
- extern PACKAGE TMainForm *MainForm;
- //---------------------------------------------------------------------------
- #endif
-